home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / modula2 / mod2src.arc / OVERPROG.MOD < prev    next >
Encoding:
Text File  |  1987-02-08  |  966 b   |  44 lines
  1.                                          (* Chapter 7 - Program 1 *)
  2. MODULE OverProg;    (* Overall program construction example *)
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;
  5.  
  6.      PROCEDURE Proc1;
  7.      BEGIN
  8.        WriteString("Procedure 1");
  9.        WriteLn;
  10.      END Proc1;
  11.  
  12.      PROCEDURE Proc2;
  13.           PROCEDURE Proc3;
  14.           BEGIN
  15.             WriteString("Procedure 3");
  16.             WriteLn;
  17.           END Proc3;
  18.  
  19.           PROCEDURE Proc4;
  20.                PROCEDURE Proc5;
  21.                BEGIN
  22.                  WriteString("Procedure 5");
  23.                  WriteLn;
  24.                END Proc5;
  25.           BEGIN
  26.             WriteString("Procedure 4");
  27.             WriteLn;
  28.             Proc5;
  29.             Proc3;
  30.           END Proc4;
  31.      BEGIN
  32.        WriteString("Procedure 2");
  33.        WriteLn;
  34.        Proc3;
  35.        Proc4;
  36.      END Proc2;
  37.  
  38. BEGIN
  39.   WriteString("Main Program");
  40.   WriteLn;
  41.   Proc2;
  42.   Proc1;
  43. END OverProg.
  44.